home *** CD-ROM | disk | FTP | other *** search
/ ASME's Mechanical Engine…ing Toolkit 1997 December / ASME's Mechanical Engineering Toolkit 1997 December.iso / auto_cad / imdemo2.exe / IMINSTAL.LSP < prev    next >
Text File  |  1990-10-15  |  9KB  |  189 lines
  1. ; IMINSTAL (DEMO) V 2.0 for use with INSERT MANAGER
  2. ; COPYRIGHT (c) 1989, 1990 CADD Masters
  3. ; ALL RIGHTS RESERVED
  4. ;
  5.  
  6. (defun insterr (st)
  7.   (terpri)
  8.   (prompt (strcat "\nINSERT MANAGER INSTALLATION - Error: " st))  
  9.   (setq *error* olderr1)  
  10. )
  11.  
  12. (defun strpos (obj tar / lobj ltar pos)
  13.   (setq lobj (strlen obj))
  14.   (setq ltar (strlen tar))
  15.   (setq pos 1)
  16.   (while (and (<= pos ltar) (/= obj (substr tar pos lobj)))
  17.     (setq pos (+ pos 1))
  18.   )
  19.   (if (> pos ltar)
  20.     (setq pos 0)
  21.   )
  22.   pos
  23. )
  24.  
  25. (defun c:iminstal (/ libry symbdir imdir response fin fold fnew l datline mnunm mnudir imdrv ansr ansr2 fout)
  26.    (setq olderr1 *error* *error* insterr)
  27.    (setvar "cmdecho" 0)
  28.    (setvar "limcheck" 0)
  29.    (if (equal (getvar "acadver") "10 c2")
  30.        (setvar "flatland" 0)
  31.    )
  32.    (setq libry "IMDEMO")
  33.    (command "vslide" "a:im")
  34.    (getstring "\nPress enter to continue . . .")
  35.    (command "sh" "cls")
  36.    (prompt "\n******************** IMINSTAL VERSION 2.0 *************************")
  37.    (prompt "\n**** (c) COPYRIGHT CADD Masters 1989, 1990 ALL RIGHTS RESERVED ****")
  38.    (setq imdrv (substr (getvar "dwgprefix") 1 2))
  39.    (setq symbdir (strcat imdrv "\\IMDEMO"))
  40.    (setq imdir (strcat imdrv "\\IM"))
  41.    (prompt (strcat "\nReady to copy INSERT MANAGER and " libry " symbol files to"))
  42.    (prompt (strcat "\n" imdir " and " symbdir " and " symbdir "\\MTRX."))
  43.    (setq response (getstring "\nPress G to go or any other key to quit . . ."))
  44.    (if (/= response "")
  45.        (setq response (strcase response))
  46.    )
  47.    (if (= response "G")
  48.        (progn
  49.            (command "sh" (strcat "md " symbdir))
  50.            (command "sh" (strcat "md " symbdir "\\MTRX"))
  51.            (command "sh" (strcat "md " imdir))
  52.            (command "shell" (strcat "a:\\pkunzip a:\\" libry "\\" libry " " symbdir)); extract archive
  53.            (command "shell" (strcat "a:\\pkunzip a:\\im\\im " imdir))
  54.            (command "shell" (strcat "a:\\pkunzip a:\\" libry "\\MTRX\\MTRX " symbdir "\\MTRX"))
  55.            (setq fout (open (strcat symbdir "\\MTRX\\imdemo.dat") "w"))
  56.            (write-line "639.000000000" fout)
  57.            (write-line "414.000000000" fout)
  58.            (write-line "-5.0 4.0" fout)
  59.            (write-line (strcat imdrv "\\IMDEMO\\CAP") fout)
  60.            (write-line "-3.0 4.0" fout)
  61.            (write-line (strcat imdrv "\\IMDEMO\\CHOKE") fout)
  62.            (write-line "-1.0 4.0" fout)
  63.            (write-line (strcat imdrv "\\IMDEMO\\BATT") fout)
  64.            (write-line "1.0 4.0" fout)
  65.            (write-line (strcat imdrv "\\IMDEMO\\FF-D") fout)
  66.            (write-line "3.0 4.0" fout)
  67.            (write-line (strcat imdrv "\\IMDEMO\\DIO") fout)
  68.            (write-line "5.0 4.0" fout)
  69.            (write-line (strcat imdrv "\\IMDEMO\\RES") fout)
  70.            (write-line "-5.0 2.0" fout)
  71.            (write-line (strcat imdrv "\\IMDEMO\\INV") fout)
  72.            (write-line "-3.0 2.0" fout)
  73.            (write-line (strcat imdrv "\\IMDEMO\\LEDF") fout)
  74.            (write-line "-1.0 2.0" fout)
  75.            (write-line (strcat imdrv "\\IMDEMO\\NAND-3") fout)
  76.            (write-line "1.0 2.0" fout)
  77.            (write-line (strcat imdrv "\\IMDEMO\\DAT-D") fout)
  78.            (write-line "3.0 2.0" fout)
  79.            (write-line (strcat imdrv "\\IMDEMO\\DAT-E") fout)
  80.            (write-line "5.0 2.0" fout)
  81.            (write-line (strcat imdrv "\\IMDEMO\\SYM") fout)
  82.            (write-line "-5.0 0.0" fout)
  83.            (write-line (strcat imdrv "\\IMDEMO\\FCS") fout)
  84.            (write-line "-3.0 0.0" fout)
  85.            (write-line (strcat imdrv "\\IMDEMO\\FCS3") fout)
  86.            (write-line "-1.0 0.0" fout)
  87.            (write-line (strcat imdrv "\\IMDEMO\\FCS3LONG") fout)
  88.            (write-line "1.0 0.0" fout)
  89.            (write-line (strcat imdrv "\\IMDEMO\\FCS3SYM") fout)
  90.            (write-line "3.0 0.0" fout)
  91.            (write-line (strcat imdrv "\\IMDEMO\\IN3SYM") fout)
  92.            (write-line "5.0 0.0" fout)
  93.            (write-line (strcat imdrv "\\IMDEMO\\FCS4SYM") fout)
  94.            (write-line "-5.0 -2.0" fout)
  95.            (write-line (strcat imdrv "\\IMDEMO\\BACKMATR") fout)
  96.            (write-line "-3.0 -2.0" fout)
  97.            (write-line (strcat imdrv "\\IMDEMO\\DBGV") fout)
  98.            (write-line "-1.0 -2.0" fout)
  99.            (write-line (strcat imdrv "\\IMDEMO\\DOUBLE-U") fout)
  100.            (write-line "1.0 -2.0" fout)
  101.            (write-line (strcat imdrv "\\IMDEMO\\FLAGRITE") fout)
  102.            (write-line "3.0 -2.0" fout)
  103.            (write-line (strcat imdrv "\\IMDEMO\\PART-V") fout)
  104.            (write-line "5.0 -2.0" fout)
  105.            (write-line (strcat imdrv "\\IMDEMO\\PARTVOS") fout)
  106.            (write-line "-5.0 -4.0" fout)
  107.            (write-line (strcat imdrv "\\IMDEMO\\SBEVBWAS") fout)
  108.            (write-line "-3.0 -4.0" fout)
  109.            (write-line (strcat imdrv "\\IMDEMO\\SBEVBWOS") fout)
  110.            (write-line "-1.0 -4.0" fout)
  111.            (write-line (strcat imdrv "\\IMDEMO\\WTLEFT") fout)
  112.            (write-line "1.0 -4.0" fout)
  113.            (write-line (strcat imdrv "\\IMDEMO\\WTRITE") fout)
  114.            (write-line "3.0 -4.0" fout)
  115.            (write-line (strcat imdrv "\\IMDEMO\\SQRGRVAS") fout)
  116.            (write-line "5.0 -4.0" fout)
  117.            (write-line (strcat imdrv "\\IMDEMO\\SQRGRVOS") fout)
  118.            (close fout)
  119.            (terpri)
  120.            (prompt (strcat "\nAll symbols (.DWG) copied to " symbdir))
  121.            (prompt (strcat "\nAll INSERT MANAGER utilities (.LSP) copied to " imdir))
  122.            (prompt (strcat "\nAll matrix files (.DAT, .SLD, .DWG) copied to " symbdir "\\MTRX"))
  123.            (setq response (getstring "\nDo you want an INSERT MANAGER pull down menu (**POP10)?  (Y/N):"))
  124.            (if (/= response "")
  125.                (setq response (strcase response))
  126.            )
  127.            (if (equal response "Y")
  128.                (progn
  129.                    (setq mnunm (getstring (strcat "\nWhat is the name of your menu (drive & directory required)?  <" (getvar "menuname") ".MNU" ">: ")))
  130.                    (if (/= mnunm "")
  131.                        (setq mnunm (strcase mnunm))
  132.                    )
  133.                    (if (equal mnunm "")
  134.                        (setq mnunm (strcat (getvar "menuname") ".MNU"))
  135.                    )
  136.                    (setq ansr "Y")
  137.                    (while (and (= ansr "Y") (not (setq fin (open mnunm "r"))))
  138.                        (prompt (strcat "\n" mnunm " not found!"))
  139.                        (setq ansr (getstring "\nTry again? (<Y>/N): "))
  140.                        (if (/= ansr "")
  141.                            (setq ansr (strcase ansr))
  142.                        )
  143.                        (if (or (= ansr "Y") (= ansr ""))
  144.                            (progn
  145.                                (setq ansr "Y")
  146.                                (setq mnunm (getstring (strcat "\nWhat is the name of your menu (drive & directory required)?  <" (getvar "menuname") ".MNU" ">: ")))
  147.                                (if (/= mnunm "")
  148.                                    (setq mnunm (strcase mnunm))
  149.                                )
  150.                                (if (equal mnunm "")
  151.                                    (setq mnunm (strcat (getvar "menuname") ".MNU"))
  152.                                )
  153.                            )
  154.                        )
  155.                    )
  156.                    (if fin
  157.                        (progn
  158.                            (close fin)
  159.                            (prompt (strcat "\nReady to modify " mnunm " and create INSERT MANAGER menu **POP10."))
  160.                            (setq response (getstring "\nPress G to go or any other key to quit . . ."))
  161.                            (if (/= response "")
  162.                                (setq response (strcase response))
  163.                            )
  164.                            (if (equal response "G")
  165.                                (progn
  166.                                    (command "shell" (strcat "a:\\makemnu " mnunm " " imdrv))
  167.                                    (command "menu" (substr mnunm 1 (- (strlen mnunm) 4)))
  168.                                )
  169.                            )
  170.                        )
  171.                    )
  172.                )
  173.            )
  174.            (textscr)
  175.            (getstring "\nInstallation complete.  Press a key to continue . . .")
  176.        )
  177.    )
  178.    (setq ansr (getstring "\nDo you wish to preview the BONUS SLIDES? (<Y>/N): "))
  179.    (if (/= ansr "")
  180.        (setq ansr (strcase ansr))
  181.    )
  182.    (if (or (= ansr "Y") (= ansr ""))
  183.        (preview)
  184.    )
  185.    (setq *error* olderr1)
  186.    (command "redraw")
  187.    (prin1)
  188. )
  189.